home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / Internal_42.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  4.2 KB  |  112 lines
  1. on mouseUp
  2.   global gPropFont, gtemp
  3.   set doc to new(xtra("PrintOMatic"))
  4.   if not objectp(doc) then
  5.     alert("There is no currently selected printer. Printing features are disabled.")
  6.   else
  7.     cursor(4)
  8.     setDocumentName(doc, "Colson CD Rom Catalog")
  9.     setMargins(doc, rect(72, 30, 72, 48))
  10.     set w to getPageWidth(doc)
  11.     set h to getPageHeight(doc)
  12.     setPageNumSymbol(doc, "├₧")
  13.     setTextFont(doc, gPropFont)
  14.     setTextSize(doc, 10)
  15.     setTextStyle(doc, "normal,italic")
  16.     setTextJust(doc, "left")
  17.     setTextStyle(doc, "normal,italic,bold")
  18.     setTextSize(doc, 14)
  19.     drawText(doc, "Colson CD-ROM Catalog -- Dimensions", point(0, 47))
  20.     setTextSize(doc, 10)
  21.     setTextStyle(doc, "normal,italic,bold")
  22.     setTextJust(doc, "right")
  23.     drawText(doc, "printed" && the date, point(w, 47))
  24.     setTextStyle(doc, "normal")
  25.     drawLine(doc, point(0, 50), point(w, 50))
  26.     drawText(doc, "Copyright 1998, Colson Caster Corporation, 800-643-5515, Fax: 800 356-6708", point(w - 70, h - 2))
  27.     setTextJust(doc, "left")
  28.     drawPicture(doc, member item 17 of line gtemp of field "masterfield", point(0, 260))
  29.     newPage(doc)
  30.     setTextFont(doc, gPropFont)
  31.     setTextSize(doc, 10)
  32.     setTextStyle(doc, "normal")
  33.     newFrame(doc, rect(0, 55, 460, h - 40), 0)
  34.     setTextFont(doc, gPropFont)
  35.     setTextSize(doc, 12)
  36.     setTextStyle(doc, "normal,bold")
  37.     append(doc, "Specifications" & RETURN, 1)
  38.     setTextSize(doc, 10)
  39.     setTextStyle(doc, "normal,bold")
  40.     append(doc, "Caster Type: ", 1)
  41.     setTextStyle(doc, "normal")
  42.     set temptext to item 1 of line gtemp of field "masterfield"
  43.     append(doc, temptext & RETURN, 1)
  44.     setTextStyle(doc, "normal,bold")
  45.     append(doc, "Model Number: ", 1)
  46.     setTextStyle(doc, "normal")
  47.     set temptext to item 2 of line gtemp of field "masterfield"
  48.     append(doc, temptext & RETURN, 1)
  49.     setTextStyle(doc, "normal,bold")
  50.     append(doc, "Mounting: ", 1)
  51.     setTextStyle(doc, "normal")
  52.     set temptext to item 3 of line gtemp of field "masterfield"
  53.     append(doc, temptext & RETURN, 1)
  54.     setTextStyle(doc, "normal,bold")
  55.     append(doc, "Wheel Diameter: ", 1)
  56.     setTextStyle(doc, "normal")
  57.     set temptext to item 4 of line gtemp of field "masterfield"
  58.     append(doc, temptext & RETURN, 1)
  59.     setTextStyle(doc, "normal,bold")
  60.     append(doc, "Tread Width: ", 1)
  61.     setTextStyle(doc, "normal")
  62.     set temptext to item 5 of line gtemp of field "masterfield"
  63.     append(doc, temptext & RETURN, 1)
  64.     setTextStyle(doc, "normal,bold")
  65.     append(doc, "Capacity per Caster: ", 1)
  66.     setTextStyle(doc, "normal")
  67.     set temptext to item 6 of line gtemp of field "masterfield"
  68.     append(doc, temptext & RETURN, 1)
  69.     setTextStyle(doc, "normal,bold")
  70.     append(doc, "Wheel Type: ", 1)
  71.     setTextStyle(doc, "normal")
  72.     set temptext to item 7 of line gtemp of field "masterfield"
  73.     append(doc, temptext & RETURN, 1)
  74.     setTextStyle(doc, "normal,bold")
  75.     append(doc, "Bearing: ", 1)
  76.     setTextStyle(doc, "normal")
  77.     set temptext to item 8 of line gtemp of field "masterfield"
  78.     append(doc, temptext & RETURN, 1)
  79.     setTextStyle(doc, "normal,bold")
  80.     append(doc, "Load Height: ", 1)
  81.     setTextStyle(doc, "normal")
  82.     set temptext to item 9 of line gtemp of field "masterfield"
  83.     append(doc, temptext & RETURN, 1)
  84.     setTextStyle(doc, "normal,bold")
  85.     append(doc, "Swivel Radius: ", 1)
  86.     setTextStyle(doc, "normal")
  87.     set temptext to item 10 of line gtemp of field "masterfield"
  88.     append(doc, temptext & RETURN, 1)
  89.     setTextStyle(doc, "normal,bold")
  90.     append(doc, "Fork Leg Spacing: ", 1)
  91.     setTextStyle(doc, "normal")
  92.     set temptext to item 11 of line gtemp of field "masterfield"
  93.     append(doc, temptext & RETURN, 1)
  94.     setTextStyle(doc, "normal,bold")
  95.     append(doc, "Approximate Weight: ", 1)
  96.     setTextStyle(doc, "normal")
  97.     set temptext to item 12 of line gtemp of field "masterfield"
  98.     append(doc, temptext & RETURN, 1)
  99.     setTextStyle(doc, "normal,bold")
  100.     append(doc, "Options: ", 1)
  101.     setTextStyle(doc, "normal")
  102.     set temptext to item 13 of line gtemp of field "masterfield"
  103.     append(doc, temptext, 1)
  104.     setTextSize(doc, 10)
  105.     setTextStyle(doc, "normal")
  106.     if doJobSetup(doc) then
  107.       print(doc)
  108.     end if
  109.     cursor(-1)
  110.   end if
  111. end
  112.